home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / misc / emu / Electrostatic.lha / Electrostatic / hidden / asm_support.i next >
Text File  |  1999-08-25  |  938b  |  77 lines
  1. ; File: asm_support.i
  2. ; Author: Neil Cafferkey
  3. ; ======================
  4. ;
  5.  
  6.     ifnd    asm_support_i
  7. asm_support_i    set    1
  8.  
  9.  
  10.     macro    CALLSYS
  11.     jsr    (_LVO\1,A6)
  12.     endm
  13.  
  14.     ifnd    _LVOOpenLibrary
  15. _LVOOpenLibrary        equ    -552
  16.     endc
  17.  
  18.     ifnd    _LVOCloseLibrary
  19. _LVOCloseLibrary    equ    -414
  20.     endc
  21.  
  22.     ifnd    _LVOFindTask
  23. _LVOFindTask        equ    -294
  24.     endc
  25.  
  26.     ifnd    _LVOWaitPort
  27. _LVOWaitPort        equ    -384
  28.     endc
  29.  
  30.     ifnd    _LVOGetMsg
  31. _LVOGetMsg        equ    -372
  32.     endc
  33.  
  34.     ifnd    _LVOReplyMsg
  35. _LVOReplyMsg        equ    -378
  36.     endc
  37.  
  38.     ifnd    _LVOForbid
  39. _LVOForbid        equ    -132
  40.     endc
  41.  
  42.  
  43. pr_MsgPort        equ    92
  44. pr_CLI            equ    172
  45.  
  46.  
  47.     ifnd    EXEC_LIBRARIES_I
  48.  
  49. LIB_USERDEF    equ    -30
  50. LIB_VECTSIZE    equ    6
  51.  
  52.  
  53.     macro    LIBINIT
  54.     ifc    '\1',''
  55. COUNT_LIB    set    LIB_USERDEF
  56.     else
  57. COUNT_LIB    set    \1
  58.     endc
  59.     endm
  60.  
  61.     macro    LIBDEF
  62. \1    equ    COUNT_LIB
  63. COUNT_LIB    SET    COUNT_LIB-LIB_VECTSIZE
  64.     endm
  65.  
  66.     endc
  67.  
  68. TAG_END            equ    $00000000
  69. TAG_MORE        equ    $00000002
  70.  
  71. A2600TAG_ProgramName    equ    $80000000
  72. A2600TAG_ExitFunction    equ    $80000001
  73. A2600TAG_WBMsg        equ    $80000002
  74.  
  75.     endc
  76.  
  77.